home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Harmless / Eyecon / Source / info.psw < prev    next >
Encoding:
Text File  |  1994-04-01  |  1.4 KB  |  68 lines
  1. defineps PSgetfont(float size)
  2.   /Times-Roman findfont size scalefont setfont
  3. endps
  4.  
  5.  
  6. defineps PSInit()
  7. % /Times-Roman findfont totalx 10 div scalefont setfont
  8. /Times-Roman findfont 100 10 div scalefont setfont
  9.  
  10. /drawcone { 
  11. % angle gray distance
  12.   /x_distance exch def
  13.   setgray
  14.   sin x_distance mul
  15.   /y_distance exch def
  16.   0 0 moveto
  17.   x_distance y_distance lineto
  18.   x_distance y_distance neg lineto  
  19.   closepath fill
  20. } bind def
  21.  
  22. /drawall { 
  23. % totalx totaly beamx beamy maxtheta mintheta inverse
  24.  gsave
  25.   /inverse exch def
  26.   /mintheta exch def
  27.   /maxtheta exch def
  28.   /beamy exch def
  29.   /beamx exch def
  30.   /totaly exch def
  31.   /totalx exch def
  32.  inverse { 1 setgray } { 0 setgray } ifelse
  33.   0 0 totalx totaly rectfill
  34.   beamx beamy translate
  35.       maxtheta -0.8 mintheta 
  36.         {dup maxtheta exch sub maxtheta mintheta sub div 
  37.         inverse { 1 exch sub } if
  38.         totalx beamx sub drawcone} 
  39.         % 
  40.     for
  41.   [ -1 0 0 1 0 0 ] concat
  42.       maxtheta -1.6 mintheta 
  43.         {dup maxtheta exch sub maxtheta mintheta sub div 
  44.         inverse { 1 exch sub } if
  45.         beamx drawcone}
  46.      for
  47.  grestore
  48.  } bind def
  49.  
  50. endps
  51.  
  52. defineps PSdrawBeams(float totalx, totaly, fractionToDraw)
  53.   gsave 
  54.     /deltax totalx 9 div def
  55.     /deltay totaly 4 div def
  56.     /beamx deltax 3 mul def
  57.     /beamy totaly deltay 1.5 mul sub def
  58.     /minangle 1 def
  59.     /maxangle fractionToDraw 14.0362 mul def
  60.     
  61.     0 setgray
  62.     0 0 totalx totaly rectfill
  63.     totalx totaly beamx beamy maxangle minangle false drawall
  64.   grestore
  65. endps
  66.  
  67.  
  68.